Imports System.Xml
Imports System.Data.SqlClient
Public Class dEquipamientoUnidad
    Public Function Existe(ByVal codigoEquipamiento As Long, ByVal CodigoUnidad As Long) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pECodigoEquipamiento", codigoEquipamiento))
        Parametros.Add(New SqlParameter("@pECodigoUnidad", CodigoUnidad))
        Return (dConexion.Consultar("STORE_TblEquipamientoUnidadBuscar", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function

    Public Function Insertar(ByVal CodigoEquipamiento As Long, ByVal CodigoUnidad As Long, ByVal FechaAlta As Date, ByVal FechaBaja As Date, ByVal Observacion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pECodigoEquipamiento", CodigoEquipamiento))
        Parametros.Add(New SqlParameter("@pECodigoUnidad", CodigoUnidad))
        Parametros.Add(New SqlParameter("@pEFechaAlta", FechaAlta.ToShortDateString))
        If FechaBaja <> (New Date()) Then
            Parametros.Add(New SqlParameter("@pEFechaBaja", FechaBaja.ToShortDateString))
        End If
        Parametros.Add(New SqlParameter("@pEObservacion", Observacion))
        Return dConexion.ABM("STORE_TblEquipamientoUnidadAlta", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoEquipamiento As Long, ByVal CodigoUnidad As Long) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pECodigoEquipamiento", CodigoEquipamiento))
        Parametros.Add(New SqlParameter("@pECodigoUnidad", CodigoUnidad))
        Return dConexion.ABM("STORE_TblEquipamientoUnidadEliminar", Parametros)
    End Function

    Public Function Modificar(ByVal CodigoEquipamiento As Long, ByVal CodigoUnidad As Long, ByVal FechaAlta As Date, ByVal FechaBaja As Date, ByVal Observacion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoUnidad <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoUnidad", CodigoUnidad))
        End If
        If CodigoEquipamiento <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoEquipamiento", CodigoEquipamiento))
        End If

        If FechaAlta <> (New Date()) Then
            Parametros.Add(New SqlParameter("@pEFechaAlta", FechaAlta.ToShortDateString))
        End If

        If FechaBaja <> (New Date()) Then
            Parametros.Add(New SqlParameter("@pEFechaBaja", FechaBaja.ToShortDateString))
        End If
        If Observacion <> "" Then
            Parametros.Add(New SqlParameter("@pEObservacion", Observacion))
        End If


        Return dConexion.ABM("STORE_TblEquipamientoUnidadModificar", Parametros)
    End Function
    Public Function Buscar(ByVal CodigoEquipamiento As Long, ByVal CodigoUnidad As Long, ByVal FechaAlta As Date, ByVal FechaBaja As Date, ByVal Observacion As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoEquipamiento <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoEquipamiento", CodigoEquipamiento))
        End If
        If CodigoUnidad <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoUnidad", CodigoUnidad))
        End If
        If FechaAlta <> (New Date()) Then
            Parametros.Add(New SqlParameter("@pEFechaAlta", FechaAlta.ToShortDateString))
        End If
        If FechaBaja <> (New Date()) Then
            Parametros.Add(New SqlParameter("@pEFechaBaja", FechaBaja.ToShortDateString))
        End If

        If Observacion <> "" Then
            Parametros.Add(New SqlParameter("@pEObservacion", Observacion))
        End If

        Return dConexion.Consultar("STORE_TblEquipamientoUnidadBuscar", Parametros)
    End Function
    Public Function Listar() As DataSet
        Return dConexion.Consultar("STORE_TblEquipamientoUnidadBuscar", New ArrayList)
    End Function
End Class

